home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 4 / Meeting Pearls Vol. IV (1996)(GTI - Schatztruhe)[!].iso / Pearls / dev / Language / ace / Utils / RemoveLine.p < prev   
Text File  |  1995-10-07  |  1KB  |  68 lines
  1. Program RemoveLine;
  2.  
  3. {
  4.  
  5. }
  6.  
  7.  
  8. {$I "Include:Exec/Ports.i"}
  9. {$I "Include:Utils/Parameters.i"}
  10. {$I "Include:utils/Stringlib.i"}
  11.  
  12. VAR
  13.        Infile     : Text;
  14.        Outfile    : Text;
  15.        InfileName : String;
  16.        OutfileName: String;
  17.        Line       : String;
  18.   
  19.  
  20. PROCEDURE Usage;
  21.  
  22. BEGIN
  23.        WRITELN("\c1mRemoveLine\c0m InSourcefile OutSourcefile");
  24.        WRITELN("\tWell it removes any lines which starts with a #");
  25.        EXIT(20);
  26. END;
  27.  
  28. PROCEDURE CheckLine;
  29.  
  30. BEGIN
  31.        READLN(Infile,Line);
  32.        IF NOT (strpos(Line,char(35)) = 0) THEN BEGIN
  33.            WRITELN(Outfile,Line);
  34.        END;
  35. END;
  36.  
  37. BEGIN
  38.        InfileName := AllocString(80);
  39.        OutfileName := AllocString(80);
  40.        Line := AllocString(500);
  41.     
  42.        GetParam(1, InfileName);
  43.        IF InfileName^ = Chr(0) THEN
  44.           Usage;
  45.  
  46.        GetParam(2, OutfileName);
  47.        IF OutfileName^ = Chr(0) THEN
  48.           Usage;
  49.  
  50.        IF NOT REOPEN(InfileName, Infile) THEN BEGIN
  51.               WRITELN('\c1m Error\c0m Reading ',InfileName);
  52.               EXIT(20);
  53.        END;
  54.        IF NOT OPEN(OutfileName, Outfile) THEN BEGIN
  55.               CLOSE(Infile);
  56.               WRITELN('\c1m Error\c0m Writing ',OutfileName);
  57.               EXIT(20);
  58.        END;
  59.       
  60.        WHILE NOT EOF(Infile) DO BEGIN
  61.           CheckLine;
  62.        END;
  63.        CLOSE(Outfile);
  64.        CLOSE(Infile);
  65. END.
  66.  
  67.  
  68.